home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 March / EnigmA AMIGA RUN 05 (1996)(G.R. Edizioni)(IT)[!][issue 1996-03][Skylink CD IV].iso / earcd / ear / fraphix1.lha / Fraphix_Installer < prev    next >
Text File  |  1995-11-29  |  2KB  |  98 lines
  1. ; Script di controllo per l'installazione Fraphix
  2.  
  3.  
  4. ; Definizione delle frasi di uso comune!!!
  5. (set nomedisco "Distribuito_EAR:"
  6. )
  7.  
  8. (set frase1
  9.        (cat   "In quale directory preferisci INSTALLARE il programma"
  10.               "FraphiX V1.0 (Shareware)")
  11. )
  12.  
  13. (set frase4
  14.        (cat   "Seleziona quale directory deve "
  15.               "divenire la zona di transito dei dati "
  16.               "per il programma \"FraphiX V1.0 (SHAREWARE)\"")
  17. )
  18.  
  19. ; Script vero e proprio
  20.  
  21. (set nome-dir
  22.        (askdir
  23.               (prompt frase1)
  24.               (help @askdir-help)
  25.               (default "Work:")
  26.        )
  27. )
  28. (set frase3
  29.        (cat "\n\nAttendere!\n\nSto copiando tutti i files "
  30.             "necessari nella directory \""
  31.              "Fraphix\""
  32.        )
  33. )
  34.  
  35.  
  36. (set frase2
  37.        (cat "Attendere!\nSto creando la directory \""
  38.              nome-dir
  39.              "Fraphix\""
  40.        )
  41. )
  42.  
  43.  
  44.  
  45. ;-------------------
  46. ; Copia LHEX to RAM: per velocizzare
  47. (set sorgente
  48.         (cat  nomedisco "c/")
  49. )
  50.    (copyfiles
  51.       (prompt "")
  52.       (help "")
  53.       (source sorgente)
  54.       (dest "RAM:")
  55.       (choices "lhex")
  56.    )
  57. (set sorgente (cat nomedisco "libs/"))
  58. (if (= 0 (exists "Sys:Libs/amos.library"))
  59.       
  60.        (copyfiles
  61.               (prompt "")
  62.               (help @copylib-help)
  63.               (source sorgente)
  64.               (dest "Sys:LIBS")
  65.               (choices "amos.library")
  66.        )
  67. )
  68. (working "Istallando il programma...")
  69. (run ("RAM:lhex >CON:0/0//60/lhex/AUTO -a -f \"-w=%s\" x %sFraphix.lha" nome-dir nomedisco))
  70. (run ('%sc/Cambiastringa \"%sFRAPHIX/Modulo_Registrazione\"  @#§ EAR' nomedisco nome-dir))
  71.  
  72. ; Seleziona dove posizionare la zona di transito dei dati!
  73. (set nome (cat nome-dir "Fraphix"))
  74.  
  75. (set store-dir
  76.        (askdir
  77.               (prompt frase4)
  78.               (help @askdir-help)
  79.               (default nome)
  80.        )
  81. )
  82. (set comando
  83.        (cat   "assign Fraphix_Store: "
  84.               store-dir
  85.               "\n")
  86. )
  87. (set frase5
  88.        (cat
  89.                "\n\nATTENZIONE!\n\nAggiungo alcune informazioni vitali "
  90.                "al file \"S:User-Startup\"\n")
  91. )
  92.  
  93. (startup "FraphiX"
  94.        (prompt frase5)
  95.        (help "SPIACENTE!\n\nNessuna spiegazione!!!")
  96.        (command comando)
  97. )
  98.